home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1997 / MacHack 1997.toast / Hacks / Hacks ’93 / Inside Mac Movie Toolbox Code / mtb7.c < prev    next >
Encoding:
Text File  |  1992-10-22  |  992 b   |  38 lines  |  [TEXT/KAHL]
  1. //    Copyright:    © 1992 by Apple Computer, Inc., all rights reserved.
  2.  
  3. #include "mtb.h"
  4.  
  5. void        CreateMyVideoTrack (Movie theMovie)
  6. {
  7.     Track                 theTrack;
  8.     Media                theMedia;
  9.     OSErr                 err = noErr;
  10.     Rect                 trackFrame = {0,0,100,320};
  11.  
  12.     theTrack = NewMovieTrack (theMovie, 
  13.                                     FixRatio(trackFrame.right,1),
  14.                                     FixRatio(trackFrame.bottom,1), 
  15.                                     kNoVolume);
  16.     CheckError( GetMoviesError(), "\pNewMovieTrack" );
  17.     
  18.     theMedia = NewTrackMedia (theTrack, VideoMediaType,
  19.                                     600,     // Video Time Scale
  20.                                     nil, 0);
  21.     CheckError( GetMoviesError(), "\pNewTrackMedia" );
  22.     
  23.     err = BeginMediaEdits (theMedia);
  24.     CheckError( err, "\pBeginMediaEdits" );
  25.  
  26.     AddVideoSamplesToMedia (theMedia, &trackFrame);
  27.     
  28.     err = EndMediaEdits (theMedia);
  29.     CheckError( err, "\pEndMediaEdits" );
  30.     
  31.     err = InsertMediaIntoTrack (theTrack, 
  32.                                 0,    // track start time
  33.                                 0,    // media start time
  34.                                 GetMediaDuration (theMedia),
  35.                                 kFix1);
  36.     CheckError( err, "\pInsertMediaIntoTrack" );
  37. }
  38.